(dired-at-point-prompter): Improve prompt in

list-directory case.

diff --git a/lisp/ffap.el b/lisp/ffap.el
index 5bba729fce37c30316ce4e9e86a0afc48dba9c1d..314d48e9ca85ae7c183bfe6e40c000174006895c 100644 (file)
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -1793,7 +1793,11 @@ ffap most of the time."
   ;; Extra complication for the temporary highlighting.
   (unwind-protect
       (ffap-read-file-or-url
-       (if ffap-url-regexp "Dired file or URL: " "Dired file: ")
+       (cond
+       ((eq ffap-directory-finder 'list-directory)
+        "List directory (brief): ")
+       (ffap-url-regexp "Dired file or URL: ")
+       (t "Dired file: "))
        (prog1
           (setq guess (or guess
                            (let ((guess (ffap-guesser)))